Cream of the Crop 12/Cream of the Crop 12 (Part II)/Cream of the Crop 12 (Part II).iso/BBS/CID_SWV1.ZIP/CID_SW.WCX

Wildcat! WCX | 1995-12-25 | 8.6 KB | 491 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  8771 bytes  03/05/125  02:32:44pm
'! Code Segment Size  :5200 bytes
'! Data Segment Size  :4937 bytes
'! String Segment Size:3571 bytes
'! Compiled with WCC version ? 019C017B

      Type Type26
        Filler0(1 To 6) As Byte
        s6 As String*70
        Filler76(1 To 14) As Byte
        s90 As String*70
        Filler160(1 To 14) As Byte
        s174 As String*70
        Filler244(1 To 20) As Byte
        w264 As Word
      End Type

      Declare Function Func4628(l65534 As Long, l65532 As Long) As Integer
      Declare Function Func5100(s65534 As String) As Integer

      Dim d4463 As Date
      Dim d4465 As Date
      Dim s4467 As String
      Dim s4471 As String
      Dim s4475 As String
      Dim l4479 As Long
      Dim i4483 As Integer
      Dim s4485 As String
      Dim i4489 As Integer
      Dim i4491 As Integer
      Dim i4493 As Integer
      Dim s4495 As String*10
      Dim s4505 As String*10
      Dim s4515 As String*10
      Dim s4525 As String*10
      Dim s4535 As String*10
      Dim i4545 As Integer
      Dim i4547 As Integer
      Dim s4549 As String
      Dim i4553 As Integer
      Dim s4561 As String*4
      Dim s4565 As String*4
      Dim s4569 As String*4
      Dim s4573 As String*4
      Dim s4577 As String*4
      Dim s4581 As String*4
      Dim s4585 As String
      Dim s4589 As String
      Dim s4593 As String
      Dim s4597 As String
      Dim s4605 As String
      Dim mh4609 As MessageHeader
      Dim s4929 As String
      Dim s4933 As String

      Dim l65516_ As Long '! Temporary
      Dim i65520_ As Integer
      Dim s65522_ As String*10
      Dim s65532_ As String

      Cls
      CurrentDate d4465
      FormatDate(d4465, "mm/dd/yyyy")
      DateStringToDate "mm/dd/yyyy", "02/02/1996", d4463
      s4467 = " v1.0"
      s4471 = "CID_SW"
      s4475 = " Created by Bigtop Enterprises - [phone]"
      i4483 = 0
      s4561 = "@00@"
      s4565 = "@0F@"
      s4569 = "@0E@"
      s4573 = "@04@"
      s4577 = "@4F@"
      s4581 = "@70@"
      i4547 = Val(s4549)
      s4589 = ProgPath + "CID_SW.CFG"
      If Func5100(s4589) Then
        Input #1, l4479
        Input #1, s4485
        Input #1, i4489
        Input #1, i4491
        Input #1, i4493
        Input #1, s4525
        Input #1, s4535
        Input #1, i4545
        Input #1, s4495
        Input #1, s4505
        Input #1, s4515
        Input #1, s4549
        Input #1, i4553
        Close 1
        i4547 = Val(s4549)
        GoTo 400
      Else
  353   If User.SecLevel = "SYSOP" Then
          GoSub 2671
          GoTo 2660
        Else
  394     GoTo 2660
        End If
      End If
  400
      If Func4628(l4479, (1339)) Then
        i4483 = -1
      Else
  445   i4483 = 0
      End If
  451 If Not i4483 Then
        If (FormatDate(d4465, "mm/dd/yyyy") = FormatDate(d4463, "mm/dd/yyyy")) = 0 Then GoTo 532
        Locate 1, 15
        Print s4577; "                   CID_SW has Expired!              "
        Delay 5
      Else
  532   If Not i4483 And l4479 <> 0 Then
          Locate 1, 15
          Print s4577; "     Not a valid registration number for CID_SW!    "
          Delay 5
        Else
  593     If Node = i4489 Or Node = i4491 Or Node = i4493 Then
            If i4483 Then
              Locate 1, 1
              Print s4577; "  " + s4471 + s4467 + s4475 + " -  Registered!  "
            Else
  699         Locate 1, 1
              Print s4577; "  " + s4471 + s4467 + s4475 + " - UNREGISTERED! "
            End If
  748       Delay 5
          End If
  756     If Node = i4489 Or Node = i4491 Or Node = i4493 And Node <> 0 Then
            s4593 = Trim(CallerIdResult)
            s4593 = UCase(s4593)
            If Left(s4593, 1) <> "P" And Left(s4593, 1) <> "O" Then
              s4593 = Left(s4593, 3) + "-" + Mid(s4593, 4, 3) + "-" + Right(s4593, 4)
            End If
  916       Open ProgPath + "CID-LOCK.LST" For Input As 1
  941       Do While Not EOF(1)
              Input #1, s4597
              If s4593 = s4597 Then
                Close 1
                DisplayTextFile(ProgPath + "CID-LOCK.BBS")
                s4605 = "User Calling from " + s4593 + " - a Locked Out Number!"
                ActivityLog s4605
                WaitEnter
                GoTo 2638
              End If
 1034       Loop
          End If
 1040     s65532_ = s4593
          If s65532_ = "O" Then
            GoTo 2127
          Else
 1077       If s65532_ = "P" Then
              GoTo 2094
            Else
 1106         s65522_ = User.SecLevel
              If s65522_ = s4525 Then
                If User.TimesOn > 1 And s4593 <> User.PhoneNumber And s4593 <> User.DataNumber And s4593 <> User.FAXNumber And s4593 <> User.Comment(i4547) Then
                  DisplayTextFile(ProgPath + "CIDCHECK.BBS")
                  s4605 = "User Calling from " + s4593 + " - a Number NOT in his record!"
                  ActivityLog s4605
                  WaitEnter
                  GoTo 2638
                Else
 1322             User.SecLevel = s4535
                  IncDate d4465, i4545, 0, 0
                  User.ExpireDate = d4465 '! 2 bytes
                  s4929 = ProgPath + "CID-VAL.TXT"
                  mh4609.From = MakeWild.SysopName
                  mh4609.To = User.Name
                  mh4609.Subject = "CallerID Upgrade!"
                  FlagSet mh4609.Flags, 1
                  FlagSet mh4609.Flags, 2
                  AddMessage(mh4609, s4929, "", 0)
                  s4605 = "CID upgraded user to " + s4535 + " " + s4593 + " = Voice OR Data number!"
                  ActivityLog s4605
                  GoTo 2660
                End If
 1527         Else
 1533           If s65522_ = s4535 Then
                  If s4593 <> User.PhoneNumber And s4593 <> User.DataNumber And s4593 <> User.FAXNumber And s4593 <> User.Comment(i4547) Then
                    DisplayTextFile(ProgPath + "CIDCHECK.BBS")
                    s4605 = "User Calling from " + s4593 + " - a Number NOT in his record!"
                    ActivityLog s4605
                    WaitEnter
                    GoTo 2340
                  Else
 1717               s4605 = "Caller ID " + s4593 + " matches 1 of users numbers."
                    ActivityLog s4605
                    GoTo 2660
                  End If
 1752           Else
 1758             If User.SecLevel <> "SYSOP" And User.SecLevel <> s4495 And User.SecLevel <> s4505 And User.SecLevel <> s4515 Then
                    If s4593 <> User.PhoneNumber And s4593 <> User.DataNumber And s4593 <> User.FAXNumber And s4593 <> User.Comment(i4547) Then
                      s4929 = ProgPath + "CID-NUM.TXT"
                      mh4609.From = MakeWild.SysopName
                      mh4609.To = User.Name
                      mh4609.Subject = "Unknown Number?"
                      FlagSet mh4609.Flags, 1
                      FlagSet mh4609.Flags, 2
                      AddMessage(mh4609, s4929, "", 0)
                      s4605 = "User calling from " + s4593 + " - a number NOT in his record!"
                      ActivityLog s4605
                    End If
                  End If
 2088             GoTo 2660
                End If
              End If
            End If
          End If
 2094     DisplayTextFile(ProgPath + "CIDBLOCK.BBS")
          s4605 = "User Calling from a Blocked Number!"
          WaitEnter
          GoTo 2638
          End
 2127     If User.SecLevel = "NEWUSER" Then
            s4929 = "No Caller ID Info for " + User.Name + " from " + User.City + ", " + User.State
            mh4609.From = User.Name
            mh4609.To = MakeWild.SysopName
            mh4609.Subject = "No CallerID Information"
            FlagSet mh4609.Flags, 1
            FlagSet mh4609.Flags, 2
            AddMessage(mh4609, s4929, "", 0)
            ActivityLog s4929
            DisplayTextFile(ProgPath + "CID-SEC.BBS")
            WaitEnter
          End If
 2333     GoTo 2660
          End
 2340     Cls
          If User.Comment(i4547) = "" Then
            Print
            Print
            Print
            Print "@0F@The phone number you are currently calling from is: @0E@" + s4593
            Print
            s4585 = "@0F@Do you want this phone number entered in your user record? @0E@"
            If InputYesNo(s4585, 1213417543) Then
              Print "@0F@This number will be added to your user record. You will NOT be"
              Print "offered this option again!"
              User.Comment(i4547) = s4593
              s4605 = "Added number " + s4593 + " as Comment(" + s4549 + ")!"
              ActivityLog s4605
              Delay 7
              GoTo 2660
            Else
 2570         s4605 = "Turned down Option to add " + s4593 + " to user record!"
              GoTo 2638
            End If
 2598     Else
 2604       s4605 = "Comment(" + s4549 + ") field already used! Called from: " + s4593
            GoTo 2638
          End If
 2638     ActivityLog s4605
          Goodbye 1213417543
          GoTo 2660
          End
        End If
      End If
      Do
 2660   Print DefColor
        Cls
        End
 2671   Cls
        Locate 1, 1
        Print s4577; "  " + s4471 + s4467 + s4475 + " - UNREGISTERED! "
        Locate 10, 20
        Print s4569; "Configuration File not found!"
        Locate 12, 16
        s4585 = "@0F@Would you like to create it [Y/N]? @0E@"
        If (InputYesNo(s4585, 1213417543)) = 0 Then GoTo 4562
        Cls
        Locate 1, 1
        Print s4577; "  " + s4471 + s4467 + s4475 + " -  UNREGISTERED! "
        Locate 3, 10
        Print s4569; "This program stores an @0F@'Extra Phone Number' @0E@in a COMMENT Field"
        Locate 4, 10
        Print s4569; "of the Users Record. There are 5 of these COMMENT fields.  If"
        Locate 5, 10
        Print s4569; "you KNOW which Comment Field is NOT being used by any other "
        Locate 6, 10
        Print s4569; "program, you should enter it now. If you are NOT sure, enter 0 "
        Locate 7, 10
        Print s4569; "and this program will terminate. You may then check your Users "
        Locate 8, 10
        Print s4569; "Record File for an unused Comment Field and then restart this "
        Locate 9, 10
        Print s4569; "program and enter the Comment field you wish to use."
        Locate 10, 10
        Print s4569; "IF you @04@CHANGE @0E@this @0A@Comment Field @0E@in the future, ALL of"
        Locate 11, 10
        Print s4569; "your Users with Extra Phone Numbers will @04@*LOSE* @0E@them!"
        Locate 14, 10
        s4585 = "@0F@Which Comment Field do you wish to use for this program [0-5]? @0E@"
        i4547 = InputNumber(s4585, 0, 5)
        If (i4547 = 0) = 0 Then GoTo 3106
      Loop
      GoTo 3118
 3106 s4549 = Str(i4547)
 3118 Cls
      Locate 1, 1
      Print s4577; Space(78)
      Locate 1, 10
      Print s4577; "Remember the F9 Key will Bring up your Security Levels!"
      s4585 = "@0F@What is the Name of your Entry Level Security? [NEWUSER]? @0E@"
      Locate 5, 1
      s4525 = InputMask(s4585, "XXXXXXXXXX", "", 1213417543)
      Locate 5, 1
      ClrEOL
      s4585 = "@0F@Validated Security Level? [VALIDATED]? : @0E@"
      Locate 5, 1
      s4535 = InputMask(s4585, "XXXXXXXXXX", "", 1213417543)
      Locate 5, 1
      ClrEOL
      s4585 = "@0F@Number of days in Validation period [1-90] : @0F@"
      Locate 5, 1
      i4545 = InputNumber(s4585, 1, 90)
      s4585 = "@0F@Special Consideration for Level? [Enter for None] : @0E@"
      Locate 5, 1
      ClrEOL
      Locate 5, 1
      s4495 = InputMask(s4585, "XXXXXXXXXX", "", 1213417543)
      Locate 5, 1
      ClrEOL
      Locate 5, 1
      s4505 = InputMask(s4585, "XXXXXXXXXX", "", 1213417543)
      Locate 5, 1
      ClrEOL
      Locate 5, 1
      s4515 = InputMask(s4585, "XXXXXXXXXX", "", 1213417543)
      Locate 5, 1
      ClrEOL
      s4585 = "@0F@Node Number(s) for Activation [0-8] : @0E@"
      Locate 5, 1
      i4489 = InputNumber(s4585, 0, 8)
      Locate 5, 1
      ClrEOL
      Locate 5, 1
      i4491 = InputNumber(s4585, 0, 8)
      Locate 5, 1
      ClrEOL
      Locate 5, 1
      i4493 = InputNumber(s4585, 0, 8)
      Locate 5, 1
      ClrEOL
      s4585 = "@0F@Allow User to add his calling number online? [Y/N] : @0E@"
      If InputYesNo(s4585, 1213417543) Then
        i4553 = 1
      Else
 3608   i4553 = 0
      End If
 3614 Cls
      Locate 4, 20
      Print s4565; "BBS Name : @0E@"; MakeWild.BBSName
      Locate 5, 20
      Print s4565; "Registration Number : @0E@"; l4479
      Locate 6, 20
      Print s4565; "NewUser Security Level: @0E@"; UCase(s4525)
      Locate 7, 20
      Print s4565; "Validated User Security Level: @0E@"; UCase(s4535)
      Locate 8, 20
      Print s4565; "Number of days in Valiation Period: @0E@"; UCase(Str(i4545))
      Locate 9, 20
      Print s4565; "Special Consideration Level: @0E@"; UCase(s4495)
      Locate 10, 20
      Print s4565; "Special Consideration Level: @0E@"; UCase(s4505)
      Locate 11, 20
      Print s4565; "Special Consideration Level: @0E@"; UCase(s4515)
      Locate 12, 20
      Print s4565; "Activate for Node: @0E@"; UCase(Str(i4489))
      Locate 13, 20
      Print s4565; "Activate for Node: @0E@"; UCase(Str(i4491))
      Locate 14, 20
      Print s4565; "Activate for Node: @0E@"; UCase(Str(i4493))
      i65520_ = i4553
      If i65520_ = 0 Then
        s4933 = "NO"
      Else
 4046   If i65520_ = 1 Then
          s4933 = "YES"
        Else
 4076     s4933 = "NO"
        End If
      End If
 4085 Locate 15, 20
      Print s4565; "Allow user to Add number online: @0E@"; UCase(s4933)
      Locate 22, 10
      s4585 = "@0A@Save this Configuration file [Y/N]? @0E@"
      If InputYesNo(s4585, 1213417543) Then
        Cls
        s4585 = "@0F@Would you like to Enter your Registration Number Now? @0E@"
        Locate 10, 10
        If InputYesNo(s4585, 1213417543) Then
          Cls
          Locate 1, 1
          Print "@NOPAUSE@ @NOSTOP@                                  NOTE!!!"
          Locate 2, 1
          Print ""
          Locate 3, 1
          Print "@0F@      The @0E@Registration @0F@Number is only available from @0E@*** @0A@BIGTOP @0E@*** @0A@BBS@0F@!"
          Locate 4, 1
          Print "@0F@      Any Number other than  '0'  that is @8F@*@04@NOT@8F@* @0F@the correct @0E@Registration"
          Locate 5, 1
          Print "@0E@      @0F@Number will @08@disable @0F@this program. I do not recommend entering  ANY"
          Locate 6, 1
          Print "@0F@      number other than '0' or your correct  @0E@Registration  @0F@Number at the"
          Locate 7, 1
          Print "@0F@      prompt below!"
          Locate 8, 1
          Locate 22, 10
          s4585 = "@0F@Enter your @0E@Registration @0F@Number @0E@-> "
          l4479 = InputNumber(s4585, 0, 999999999)
        End If
 4345   Open s4589 For Output As 1
        Print #1, l4479
        Print #1, MakeWild.BBSName
        Print #1, i4489
        Print #1, i4491
        Print #1, i4493
        Print #1, s4525
        Print #1, s4535
        Print #1, i4545
        Print #1, s4495
        Print #1, s4505
        Print #1, s4515
        Print #1, s4549
        Print #1, i4553
        Close 1
        Cls
        Locate 5, 10
        Print "@0F@Configuration file saved as: @0E@"; s4589
        Delay 2
        Print DefColor
      Else
 4554   Print DefColor
        End
      End If
 4562 Return
      End

'! Called 1 time
      Function Func4628(l65534 As Long, l65532 As Long) As Integer
        Dim l65467 As Long
        Dim i65471 As Integer
        Dim l65473 As Long
        Dim i65477 As Integer
        Dim s65483 As String*7
        Dim s65490 As String*30
        Dim l65520 As Long
        Dim l65524 As Long
        Dim i65528 As Integer

        s65490 = UCase(MakeWild.BBSName)
        s65490 = Trim(s65490)
        l65524 = 0
 4705   For i65528 = 1 To Len(s65490) Step 1
          l65524 = l65524 + Asc(Mid(s65490, i65528, 1))
        Next
 4809   s65483 = UCase(MakeWild.RegString)
        s65483 = Trim(s65483)
        l65520 = 0
 4878   For i65528 = 1 To Len(s65483) Step 1
          l65520 = l65520 + Asc(Mid(s65483, i65528, 1))
        Next
 4982   l65520 = l65520 + l65524
        l65520 = l65520 * 7
        l65520 = l65520 * l65532
        l65520 = l65520 + l65532
        If l65520 = l65534 Then
          Func4628 = - 1
        Else
 5086     Func4628 = 0
        End If
 5092
      End Function

'! Called 1 time
      Function Func5100(s65534 As String) As Integer
        Func5100 = -1
        If Exists(s65534) Then
          Open s65534 For Input As 1
        Else
 5159     Func5100 = 0
        End If
 5165
        Catch 10
          Func5100 = 0
        GoTo 5192
 5192
      End Function